Remove unnecessary :group attributes

* which-key.el:  Remove :group 'which-key in defcustoms.
(which-key-idle-delay):
(which-key-idle-secondary-delay):
(which-key-echo-keystrokes):
(which-key-max-description-length):
(which-key-min-column-description-width):
(which-key-add-column-padding):
(which-key-unicode-correction):
(which-key-dont-use-unicode):
(which-key-separator):
(which-key-ellipsis):
(which-key-prefix-prefix):
(which-key-compute-remaps):
(which-key-replacement-alist):
(which-key-allow-multiple-replacements):
(which-key-show-docstrings):
(which-key-highlighted-command-list):
(which-key-special-keys):
(which-key-buffer-name):
(which-key-show-prefix):
(which-key-popup-type):
(which-key-min-display-lines):
(which-key-max-display-columns):
(which-key-side-window-location):
(which-key-side-window-slot):
(which-key-side-window-max-width):
(which-key-side-window-max-height):
(which-key-frame-max-width):
(which-key-frame-max-height):
(which-key-allow-imprecise-window-fit):
(which-key-show-remaining-keys):
(which-key-sort-order):
(which-key-sort-uppercase-first):
(which-key-paging-prefixes):
(which-key-paging-key):
(which-key-use-C-h-commands):
(which-key-show-early-on-C-h):
(which-key-is-verbose):
(which-key-preserve-window-configuration):
(which-key-hide-alt-key-translations):
(which-key-delay-functions):
(which-key-allow-regexps):
(which-key-inhibit-regexps):
(which-key-show-transient-maps):
(which-key-init-buffer-hook):

diff --git a/which-key.el b/which-key.el
index 9623c729b929974732387b42a318a5a63a55e757..40cb6ba99c1e9073a8357790feb3da8fe67f2edd 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -61,7 +61,6 @@ This variable should be set before activating `which-key-mode'.
 A value of zero might lead to issues, so a non-zero value is
 recommended
 (see https://github.com/justbur/emacs-which-key/issues/134)."
-  :group 'which-key
   :type 'float
   :version "1.0")
 
@@ -70,7 +69,6 @@ recommended
 This makes it possible to shorten the delay for subsequent popups
 in the same key sequence. The default is for this value to be
 nil, which disables this behavior."
-  :group 'which-key
   :type '(choice float (const :tag "Disabled" nil))
   :version "1.0")
 
@@ -84,7 +82,6 @@ This only applies if `which-key-popup-type' is minibuffer or
 `which-key-show-prefix' is echo.  It needs to be less than
 `which-key-idle-delay' or else the keystroke echo will erase the
 which-key popup."
-  :group 'which-key
   :type 'float
   :version "1.0")
 
@@ -95,7 +92,6 @@ characters), a float (use that fraction of the available width),
 or a function, which takes one argument, the available width in
 characters, and whose return value has one of the types mentioned
 before.  Truncation is done using `which-key-ellipsis'."
-  :group 'which-key
   :type '(choice (const :tag "Disable truncation" nil)
                 (integer :tag "Width in characters")
                 (float :tag "Use fraction of available width")
@@ -104,13 +100,11 @@ before.  Truncation is done using `which-key-ellipsis'."
 
 (defcustom which-key-min-column-description-width 0
   "Every column should at least have this width."
-  :group 'which-key
   :type 'natnum
   :version "1.0")
 
 (defcustom which-key-add-column-padding 0
   "Additional spaces to add to the left of each key column."
-  :group 'which-key
   :type 'integer
   :version "1.0")
 
@@ -127,7 +121,6 @@ contributed by any wide unicode characters to be up to one
 additional ASCII character in the which-key buffer.  Increase this
 number if you are seeing characters get cutoff on the right side
 of the which-key popup."
-  :group 'which-key
   :type 'integer
   :version "1.0")
 
@@ -135,7 +128,6 @@ of the which-key popup."
   "If non-nil, don't use any unicode characters in default setup.
 For affected settings, see `which-key-replacement-alist', `which-key-ellipsis'
 'which-key-separator'."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
@@ -144,7 +136,6 @@ For affected settings, see `which-key-replacement-alist', `which-key-ellipsis'
   "Separator to use between key and description.
 Default is \" → \", unless `which-key-dont-use-unicode' is non
 nil, in which case the default is \" : \"."
-  :group 'which-key
   :type 'string
   :version "1.0")
 
@@ -154,14 +145,12 @@ nil, in which case the default is \" : \"."
 Default is \"…\", unless `which-key-dont-use-unicode' is non nil,
 in which case the default is \"..\".  This can also be the empty
 string to truncate without using any ellipsis."
-  :group 'which-key
   :type 'string
   :version "1.0")
 
 (defcustom which-key-prefix-prefix "+"
   "Prefix string to indicate a key bound to a keymap.
 Default is \"+\"."
-  :group 'which-key
   :type 'string
   :version "1.0")
 
@@ -169,7 +158,6 @@ Default is \"+\"."
   "If non-nil, show remapped commands.
 This applies to commands that have been remapped given the
 currently active keymaps."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
@@ -211,7 +199,6 @@ the key binding is ignored by which-key.
 Finally, you can multiple replacements to occur for a given key
 binding by setting `which-key-allow-multiple-replacements' to a
 non-nil value."
-  :group 'which-key
   :type '(alist :key-type (cons (choice regexp (const nil))
                                 (choice regexp (const nil)))
                 :value-type (cons (choice string (const nil))
@@ -224,7 +211,6 @@ When non-nil, this allows a single key binding to match multiple
 patterns in `which-key-replacement-alist'. When nil, only the
 first match is used to perform replacements from
 `which-key-replacement-alist'."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
@@ -235,7 +221,6 @@ break. If you set this variable to the symbol docstring-only,
 then the command's name with be omitted. You probably also want
 to adjust `which-key-max-description-length' at the same time if
 you use this feature."
-  :group 'which-key
   :type '(radio
           (const :tag "Do not show docstrings" nil)
           (const :tag "Add docstring to command names" t)
@@ -249,7 +234,6 @@ matching command names and use
 `which-key-highlighted-command-face' for any matching names. If
 the element is a cons cell, it should take the form (regexp .
 face to apply)."
-  :group 'which-key
   :type  '(repeat (choice string (cons regexp face)))
   :version "1.0")
 
@@ -259,13 +243,11 @@ They also have `which-key-special-key-face' applied to them. This
 is disabled by default. An example configuration is
 
 \(setq which-key-special-keys \\='(\"SPC\" \"TAB\" \"RET\" \"ESC\" \"DEL\")\)"
-  :group 'which-key
   :type '(repeat string)
   :version "1.0")
 
 (defcustom which-key-buffer-name " *which-key*"
   "Name of which-key buffer."
-  :group 'which-key
   :type 'string
   :version "1.0")
 
@@ -273,7 +255,6 @@ is disabled by default. An example configuration is
   "Whether to and where to display the current prefix sequence.
 Possible choices are echo for echo area (the default), left, top
 and nil. Nil turns the feature off."
-  :group 'which-key
   :type '(radio (const :tag "Left of the keys" left)
                 (const :tag "In the first line" top)
                 (const :tag "In the last line" bottom)
@@ -284,7 +265,6 @@ and nil. Nil turns the feature off."
 
 (defcustom which-key-popup-type 'side-window
   "Supported types are minibuffer, side-window, frame, and custom."
-  :group 'which-key
   :type '(radio (const :tag "Show in minibuffer" minibuffer)
                 (const :tag "Show in side window" side-window)
                 (const :tag "Show in popup frame" frame)
@@ -293,14 +273,12 @@ and nil. Nil turns the feature off."
 
 (defcustom which-key-min-display-lines 1
   "Minimum number of horizontal lines to display in the which-key buffer."
-  :group 'which-key
   :type 'integer
   :version "1.0")
 
 (defcustom which-key-max-display-columns nil
   "Maximum number of columns to display in the which-key buffer.
 A value of nil means don't impose a maximum."
-  :group 'which-key
   :type '(choice integer (const :tag "Unbounded" nil))
   :version "1.0")
 
@@ -310,7 +288,6 @@ Should be one of top, bottom, left or right.  You can also specify
 a list of two locations, like (right bottom).  In this case, the
 first location is tried.  If there is not enough room, the second
 location is tried."
-  :group 'which-key
   :type '(radio (const right)
                 (const bottom)
                 (const left)
@@ -330,7 +307,6 @@ specified side.  A negative value means use a slot
 preceding (that is, above or on the left of) the middle slot.  A
 positive value means use a slot following (that is, below or on
 the right of) the middle slot.  The default is zero."
-  :group 'which-key
   :type 'integer
   :version "1.0")
 
@@ -338,7 +314,6 @@ the right of) the middle slot.  The default is zero."
   "Maximum width of which-key popup when type is side-window.
 This variable can also be a number between 0 and 1. In that case,
 it denotes a percentage out of the frame's width."
-  :group 'which-key
   :type 'float
   :version "1.0")
 
@@ -346,19 +321,16 @@ it denotes a percentage out of the frame's width."
   "Maximum height of which-key popup when type is side-window.
 This variable can also be a number between 0 and 1. In that case, it denotes
 a percentage out of the frame's height."
-  :group 'which-key
   :type 'float
   :version "1.0")
 
 (defcustom which-key-frame-max-width 60
   "Maximum width of which-key popup when type is frame."
-  :group 'which-key
   :type 'integer
   :version "1.0")
 
 (defcustom which-key-frame-max-height 20
   "Maximum height of which-key popup when type is frame."
-  :group 'which-key
   :type 'integer
   :version "1.0")
 
@@ -369,13 +341,11 @@ this on may help.
 
 See https://github.com/justbur/emacs-which-key/issues/130
 and https://github.com/justbur/emacs-which-key/issues/225."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
 (defcustom which-key-show-remaining-keys nil
   "Show remaining keys in last slot, when keys are hidden."
-  :group 'which-key
   :type '(radio (const :tag "Yes" t)
                 (const :tag "No" nil))
   :version "1.0")
@@ -394,7 +364,6 @@ are
 
 See the README and the docstrings for those functions for more
 information."
-  :group 'which-key
   :type '(choice (function-item which-key-key-order)
                  (function-item which-key-key-order-alpha)
                  (function-item which-key-description-order)
@@ -406,20 +375,17 @@ information."
   "If non-nil, uppercase comes before lowercase in sorting.
 This applies to the function chosen in
 `which-key-sort-order'. Otherwise, the order is reversed."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
 (defcustom which-key-paging-prefixes '()
   "Enable paging for these prefixes."
-  :group 'which-key
   :type '(repeat string)
   :version "1.0")
 
 (defcustom which-key-paging-key "<f5>"
   "Key to use for changing pages.
 Bound after each of the prefixes in `which-key-paging-prefixes'"
-  :group 'which-key
   :type 'string
   :version "1.0")
 
@@ -439,7 +405,6 @@ Bound after each of the prefixes in `which-key-paging-prefixes'"
 Normally `help-char' after a prefix calls
 `describe-prefix-bindings'. This changes that command to a
 which-key paging command when which-key-mode is active."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
@@ -456,13 +421,11 @@ using C-h.
 
 Note that `which-key-idle-delay' should be set before turning on
 `which-key-mode'."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
 (defcustom which-key-is-verbose nil
   "Whether to warn about potential mistakes in configuration."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
@@ -473,8 +436,6 @@ shown and restore it after which-key buffer is hidden. It
 prevents which-key from changing window position of visible
 buffers.  Only takken into account when popup type is
 side-window."
-  :group
-  'which-key
   :type 'boolean
   :version "1.0")
 
@@ -544,7 +505,6 @@ These translations are not relevant most of the times since a lot
 of terminals issue META modifier for the Alt key.
 
 See http://www.gnu.org/software/emacs/manual/html_node/emacs/Modifier-Keys.html"
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
@@ -561,7 +521,6 @@ this list to return a value is the value that is used.
 
 The delay time is effectively added to the normal
 `which-key-idle-delay'."
-  :group 'which-key
   :type '(repeat function)
   :version "1.0")
 
@@ -570,7 +529,6 @@ The delay time is effectively added to the normal
 When non-nil, for a key sequence to trigger the which-key popup
 it must match one of the regexps in this list.  The format of the
 key sequences is what is produced by `key-description'."
-  :group 'which-key
   :type '(repeat regexp)
   :version "1.0")
 
@@ -579,7 +537,6 @@ key sequences is what is produced by `key-description'."
 When non-nil, for a key sequence to trigger the which-key popup
 it cannot match one of the regexps in this list. The format of
 the key sequences is what is produced by `key-description'."
-  :group 'which-key
   :type '(repeat regexp)
   :version "1.0")
 
@@ -589,7 +546,6 @@ the key sequences is what is produced by `key-description'."
 More specifically, detect when `overriding-terminal-local-map' is
 set (this is the keymap used by `set-transient-map') and display
 it."
-  :group 'which-key
   :type 'boolean
   :version "1.0")
 
@@ -601,7 +557,6 @@ it."
 ;; Hooks
 (defcustom which-key-init-buffer-hook '()
   "Hook run when which-key buffer is initialized."
-  :group 'which-key
   :type 'hook
   :version "1.0")